Copy and Filter the data with vba